home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapup.plp < prev    next >
Text File  |  1993-11-30  |  14KB  |  622 lines

  1. /************************************************************************
  2. *    アップロード処理                        *
  3. ************************************************************************/
  4. /*    アップロード種類判定    */
  5. %UPCHK{
  6.     A:=1;
  7.     %UPDATA @read(TEMPPATH|{\PVAPUP.DAT});
  8.     loop({
  9.     %UPTYPE @nth(@getline(UPDATA,A,{1}),1,{/});
  10.     case    (UPTYPE,
  11.         {テキストメール},    {UPTMAIL;im({Yes})},
  12.         {バイナリメール},    {UPBMAIL;im({Yes})},
  13.         {事務局宛メール},    {UPJMAIL;im({Yes})},
  14.         {NIFTY連携メール},    {UPNIFMAIL;im({Yes})},
  15.         {不在通知},        {UPFUZAI;im({Yes})},
  16.         {プロフィール},        {UPPROF;im({Yes})},
  17.         {フォーラム},        {UPFORUM;im({Yes})},
  18.         {SIG内会議室},    {UPKAIGI;im({Yes})},
  19.         {BBS},        {UPBBS;im({Yes})},
  20.         {CUG内掲示板},    {UPCUGKEI;im({Yes})},
  21.         {CUG内会議室},    {UPCUGKAI;im({Yes})},
  22.         {OLT広場},        {UPOLT;im({Yes})},
  23.         {SIG内OLT広場},    {UPSIGOLT;im({Yes})},
  24.         {CUG内OLT広場},    {UPCUGOLT;im({Yes})},
  25.         {SIG内OSL},    {UPOSL;im({Yes})},
  26.         {CUG内OSL},    {UPCUGOSL;im({Yes})});
  27.     });
  28.     delfile(TEMPPATH|{\PVAPUP.DAT});
  29. };
  30.  
  31. /*    テキストメールの送信    */
  32. %UPTMAIL{
  33.     var AD[8];
  34.     var SENDID1[50];
  35.     var SENDID2[8];
  36.     type({J MAIL\n});
  37.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n});WAIT},
  38.             {よろしいですか=},{type({\n});WAIT},
  39.             {番号またはコマンド=},,
  40.             {,J)=},);
  41.     SENDID1:=@nth(@getline(UPDATA,A,{1}),2,{/});
  42.     footnote(SENDID1|{にテキストメールを送信しています});
  43.     type({2\n});
  44.     WAIT;
  45.     %mailcom @nth(@getline(UPDATA,A,{1}),5,{/});
  46.     case(mailcom,{BC},{type({BC\n});WAIT},{無し},);
  47.     loop({
  48.     SENDID2:=@head(SENDID1,{,});
  49.     type(SENDID2|{\n});
  50.     WAIT;
  51.     SENDID1:=@body(SENDID1,{,});
  52.     case(SENDID1,{},{im({No})},,{im({Yes})});
  53.     });
  54.     AD:=@nth(@getline(UPDATA,A,{1}),3,{/});
  55.     case(AD={},{No},sendad,{Yes},);
  56.     type({\n});
  57.     wait    ({60},STOP,
  58.         {終了します。},    uptmail,
  59.         {訂正},        {WAIT;SNDMSG({okasi_f.snd});
  60.                             display({\n相手が不在です\n});A:=A+1});
  61.     type({S\n});
  62.     WAIT;
  63. };
  64. %uptmail{
  65.     wait({2});
  66.     %TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
  67.     type(TITLE|{\n});
  68.     wait({2});
  69.     %SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  70.     A:=A+1;
  71.     send(SENDFILE);
  72.     type({\n});
  73.     type({..\n});
  74.     WAIT;
  75.     type({G\n});
  76.     WAIT;
  77. };
  78.  
  79. /*    バイナリメールの送信    */
  80. %UPBMAIL{
  81.     var AD[8];
  82.     var SENDID1[50];
  83.     var SENDID2[8];
  84.     type({J MAIL\n});
  85.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n});WAIT},
  86.             {よろしいですか=},{type({\n});WAIT},
  87.             {番号またはコマンド=},,
  88.             {,J)=},);
  89.     SENDID1:=@nth(@getline(UPDATA,A,{1}),2,{/});
  90.     footnote(SENDID1|{にバイナリメールを送信しています});
  91.     type({2\n});
  92.     WAIT;
  93.     %mailcom @nth(@getline(UPDATA,A,{1}),5,{/});
  94.     case(mailcom,{BC},{type({BC\n});WAIT},{無し},);
  95.     loop({
  96.     SENDID2:=@head(SENDID1,{,});
  97.     type(SENDID2|{\n});
  98.     WAIT;
  99.     SENDID1:=@body(SENDID1,{,});
  100.     case(SENDID1,{},{im({No})},,{im({Yes})});
  101.     });
  102.     AD:=@nth(@getline(UPDATA,A,{1}),3,{/});
  103.     case(AD={},{No},sendad,{Yes},);
  104.     type({UP\n});
  105.     wait    ({60},STOP,
  106.         {ファイルの属性を入力して下さい。},
  107.         {WAIT;upbmail},
  108.         {訂正},
  109.         {WAIT;SNDMSG({okasi_f.snd});
  110.         display({\n相手が不在です\n});A:=A+1});
  111.     type({S\n});
  112.     WAIT;
  113. };
  114. %upbmail{
  115.     type({2\n});
  116.     WAIT;
  117.     type({2\n});
  118.     wait({20},STOP,{入力して下さい。},);
  119.     wait({2});
  120.     %TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
  121.     type(TITLE|{\n});
  122.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n})},
  123.             {よろしいですか=},{type({\n})});
  124.     wait({60},STOP,{起動して下さい。},{
  125.     wait({3});
  126.     %sendfile @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  127.     case    (DIR2={},
  128.         {No},{command(DIR2|{\QV -s }|sendfile)},
  129.         {Yes},{command({QV -s }|sendfile)});});
  130.     wait({2});type({\n});
  131.     WAIT;
  132.     A:=A+1;
  133. };
  134.  
  135. /*    送信日の送信    */
  136. %sendad{
  137.     AD:=@getchar(AD,{1},{2})|{/}|@getchar(AD,{3},{2})|{/}|
  138.         @getchar(AD,{5},{2});
  139.     type({AD\n});
  140.     WAIT;
  141.     type(AD|{\n});
  142.     WAIT;
  143. };
  144.  
  145. /*    PC-VAN事務局宛メールの送信    */
  146. %UPJMAIL{
  147.     type({J MAIL\n});
  148.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n});WAIT},
  149.             {よろしいですか=},{type({\n});WAIT},
  150.             {番号またはコマンド=},,
  151.             {,J)=},);
  152.     footnote({PC-VAN事務局宛メールを送信しています});
  153.     type({6\n});
  154.     wait({60},STOP,{終了します。},);
  155.     upjmail;
  156. };
  157. %upjmail{
  158.     wait({2});
  159.     %TITLE @nth(@getline(UPDATA,A,{1}),2,{/});
  160.     type(TITLE|{\n});
  161.     wait({2});
  162.     %SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  163.     A:=A+1;
  164.     send(SENDFILE);
  165.     type({\n});
  166.     type({..\n});
  167.     WAIT;
  168.     type({G\n});
  169.     WAIT;
  170. };
  171.  
  172. /*    NIFTY連携メールの送信    */
  173. %UPNIFMAIL{
  174.     var AD[6];
  175.     var SENDID1[50];
  176.     var SENDID2[8];
  177.     type({J MAIL\n});
  178.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n});WAIT},
  179.             {よろしいですか=},{type({\n});WAIT},
  180.             {番号またはコマンド=},,
  181.             {,J)=},);
  182.     SENDID1:=@nth(@getline(UPDATA,A,{1}),2,{/});
  183.     footnote({NIFTY-Serveの}|SENDID1|{にメールを送信しています});
  184.     type({2\n});
  185.     WAIT;
  186.     type({MHSX400\n});
  187.     WAIT;
  188.     AD:=@nth(@getline(UPDATA,A,{1}),4,{/});
  189.     case(AD={},{No},sendad,{Yes},);
  190.     type({\n});
  191.     wait    ({60},STOP,
  192.         {終了します。},    upnifmail);
  193.     type({S\n});
  194.     WAIT;
  195. };
  196. %upnifmail{
  197.     wait({2});
  198.     %TITLE @nth(@getline(UPDATA,A,{1}),3,{/});
  199.     type(TITLE|{\n});
  200.     wait({2});
  201.     loop({
  202.     SENDID2:=@head(SENDID1,{,});
  203.     type({TO:NIFTY#}|SENDID2|{\n});
  204.     wait({2});
  205.     SENDID1:=@body(SENDID1,{,});
  206.     case(SENDID1,{},{im({No})},,{im({Yes})});
  207.     });
  208.     type({\n});
  209.     wait({2});
  210.     %SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  211.     A:=A+1;
  212.     send(SENDFILE);
  213.     type({\n});
  214.     type({..\n});
  215.     WAIT;
  216.     type({G\n});
  217.     WAIT;
  218. };
  219.  
  220. /*    プロフィールの登録    */
  221. %UPPROF{
  222.     footnote({プロフィールを登録しています});
  223.     type({J TOROKU\n});
  224.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n});WAIT},
  225.             {よろしいですか=},{type({\n});WAIT},
  226.             {番号またはコマンド=},,
  227.             {,J)=},);
  228.     type({4\n});
  229.     WAIT;
  230.     type({1\n});
  231.     wait({60},STOP,{終了します。},);
  232.     wait({2});
  233.     %SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  234.     send(SENDFILE);
  235.     type({\n});
  236.     type({..\n});
  237.     WAIT;
  238.     type({G\n});
  239.     WAIT;
  240.     A:=A+1;
  241. };
  242.  
  243. /*    不在通知の登録    */
  244. %UPFUZAI{
  245.     var AD[8];
  246.     footnote({不在通知を登録しています});
  247.     type({J MAIL\n});
  248.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n});WAIT},
  249.             {よろしいですか=},{type({\n});WAIT},
  250.             {番号またはコマンド=},,
  251.             {,J)=},);
  252.     type({5\n});
  253.     WAIT;
  254.     type({1\n});
  255.     WAIT;
  256.     AD:=@nth(@getline(UPDATA,A,{1}),2,{/});
  257.     AD:=@getchar(AD,{1},{2})|{/}|@getchar(AD,{3},{2})|{/}|
  258.         @getchar(AD,{5},{2});
  259.     type(AD|{\n});
  260.     WAIT;
  261.     AD:=@nth(@getline(UPDATA,A,{1}),3,{/});
  262.     AD:=@getchar(AD,{1},{2})|{/}|@getchar(AD,{3},{2})|{/}|
  263.         @getchar(AD,{5},{2});
  264.     type(AD|{\n});
  265.     wait({120},STOP,{よろしいですか(Y,N,J)=},,
  266.             {よろしいですか=},);
  267.     type({\n});
  268.     wait({60},STOP,{されません。},);
  269.     wait({2});
  270.     %SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  271.     send(SENDFILE);
  272.     type({\n});
  273.     type({..\n});
  274.     WAIT;
  275.     type({G\n});
  276.     WAIT;
  277.     A:=A+1;
  278. };
  279.  
  280. /*    各メニューにジャンプして各処理をする    */
  281. %Jump{
  282.     [jump]
  283.     type({J }|JUMP|{\n});
  284.     loop({
  285.     wait    ({60},STOP,
  286.         {訂正},    {WAIT;SNDMSG({okasi_f.snd});
  287.             display({\nジャンプコードが間違っています\n});
  288.             A:=A+1;im({No})},
  289.         {リターンキーを押して下さい=},
  290.             {type({\n});im({Yes})},
  291.         {よろしいですか(Y,N)=},
  292.             {type({\n});im({Yes})},
  293.         {よろしいですか=},
  294.             {type({\n});im({Yes})},
  295.         {,J)=},    {jump;im({No})},
  296.         {番号またはコマンド=},
  297.             {jump;im({No})});
  298.     });
  299. };
  300.  
  301. /*    フォーラムへの送信    */
  302. %UPFORUM{
  303.     %JUMP    @nth(@getline(UPDATA,A,{1}),2,{/});
  304.     %NUMBER    @nth(@getline(UPDATA,A,{1}),3,{/});
  305.     %TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
  306.     footnote(JUMP|{の}|NUMBER|{番フォーラムに書き込んでいます});
  307.  
  308.     %sig{
  309.     type({3\n});
  310.     WAIT;
  311.     WMES1;
  312.     type({M\n});
  313.     WAIT;
  314.     };
  315.  
  316.     case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
  317. };
  318.  
  319. /*    BBSへの送信    */
  320. %UPBBS{
  321.     %JUMP    @nth(@getline(UPDATA,A,{1}),2,{/});
  322.     %NUMBER    @nth(@getline(UPDATA,A,{1}),3,{/});
  323.     %TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
  324.     footnote(JUMP|{の}|NUMBER|{番に書き込んでいます});
  325.  
  326.     %bbs{
  327.     WMES1;
  328.     type({F\n});
  329.     WAIT;
  330.     };
  331.  
  332.     case(WHERE2=JUMP,{Yes},{bbs},,{WHERE2:=JUMP;Jump({bbs})});
  333. };
  334.  
  335. /*    SIG内会議室への送信    */
  336. %UPKAIGI{
  337.     %JUMP    @nth(@getline(UPDATA,A,{1}),2,{/});
  338.     %NUMBER    @nth(@getline(UPDATA,A,{1}),3,{/});
  339.     %TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
  340.     footnote(JUMP|{の}|NUMBER|{番会議室に書き込んでいます});
  341.  
  342.     %sig{
  343.     type({5\n});
  344.     WAIT;
  345.     WMES2;
  346.     type({M\n});
  347.     WAIT;
  348.     };
  349.  
  350.     case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
  351. };
  352.  
  353. /*    SIG内OLT広場への送信    */
  354. %UPSIGOLT{
  355.     %JUMP    @nth(@getline(UPDATA,A,{1}),2,{/});
  356.     %TITLE @nth(@getline(UPDATA,A,{1}),3,{/});
  357.     footnote(JUMP|{のOLT広場に書き込んでいます});
  358.  
  359.     %sig{
  360.     type({6\n});
  361.     WAIT;
  362.     type({3\n});
  363.     WAIT;
  364.     type({4\n});
  365.     wait({60},STOP,{登録されません。},);
  366.     WMES4;
  367.     type({M\n});
  368.     WAIT;
  369.     };
  370.  
  371.     case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
  372. };
  373.  
  374. /*    CUGにジャンプし各処理をする    */
  375. %JUMPCUG{
  376.     [jumpcug]
  377.     type({J }|JUMP|{\n});
  378.     loop({
  379.     wait({60},STOP,    {よろしいですか(Y,N)=},
  380.                 {type({\n});im({Yes})},
  381.             {よろしいですか=},
  382.                 {type({\n});im({Yes})},
  383.             {未契約},{WAIT;
  384.                 SNDMSG({okasi_f.snd});
  385.                 display({\未契約のCUGです\n});
  386.                 A:=A+1;im({No})},
  387.             {訂正},    {WAIT;
  388.                 SNDMSG({okasi_f.snd});
  389.                 display({\nCUGコードが間違っています\n});
  390.                 A:=A+1;im({No})},
  391.             {PASSWORD:},
  392.                 {type(PASS|{\n});
  393.                 WAITa;
  394.                 jumpcug;
  395.                 im({No})});
  396.     });
  397. };
  398.  
  399. /*    CUG内掲示板への送信    */
  400. %UPCUGKEI{
  401.     %JUMP    @nth(@getline(UPDATA,A,{1}),2,{/});
  402.     %PASS    @nth(@getline(UPDATA,A,{1}),3,{/});
  403.     %MAINNUM@nth(@getline(UPDATA,A,{1}),4,{/});
  404.     %NUMBER    @nth(@getline(UPDATA,A,{1}),5,{/});
  405.     %TITLE @nth(@getline(UPDATA,A,{1}),6,{/});
  406.     footnote(JUMP|{の}|NUMBER|{番掲示板に書き込んでいます});
  407.  
  408.     %cug{
  409.     type(MAINNUM|{\n});
  410.     WAIT;
  411.     WMES1;
  412.     type({M\n});
  413.     WAIT;
  414.     };
  415.  
  416.     case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
  417. };
  418.  
  419. /*    CUG内会議室への送信    */
  420. %UPCUGKAI{
  421.     %JUMP    @nth(@getline(UPDATA,A,{1}),2,{/});
  422.     %PASS    @nth(@getline(UPDATA,A,{1}),3,{/});
  423.     %MAINNUM@nth(@getline(UPDATA,A,{1}),4,{/});
  424.     %NUMBER    @nth(@getline(UPDATA,A,{1}),5,{/});
  425.     %TITLE @nth(@getline(UPDATA,A,{1}),6,{/});
  426.     footnote(JUMP|{の}|NUMBER|{番会議室に書き込んでいます});
  427.  
  428.     %cug{
  429.     type(MAINNUM|{\n});
  430.     WAIT;
  431.     WMES2;
  432.     type({M\n});
  433.     WAIT;
  434.     };
  435.  
  436.     case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
  437. };
  438.  
  439. /*    CUG内OLT広場への送信    */
  440. %UPCUGOLT{
  441.     %JUMP    @nth(@getline(UPDATA,A,{1}),2,{/});
  442.     %PASS    @nth(@getline(UPDATA,A,{1}),3,{/});
  443.     %MAINNUM@nth(@getline(UPDATA,A,{1}),4,{/});
  444.     %TITLE @nth(@getline(UPDATA,A,{1}),5,{/});
  445.     footnote(JUMP|{のOLT広場に書き込んでいます});
  446.  
  447.     %cug{
  448.     type(MAINNUM|{\n});
  449.     WAIT;
  450.     type({3\n});
  451.     WAIT;
  452.     type({4\n});
  453.     wait({60},STOP,{登録されません。},);
  454.     WMES4;
  455.     type({M\n});
  456.     WAIT;
  457.     };
  458.  
  459.     case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
  460. };
  461.  
  462. /*    OLT広場への送信    */
  463. %UPOLT{
  464.     %TITLE @nth(@getline(UPDATA,A,{1}),2,{/});
  465.     footnote({OLT広場に書き込んでいます});
  466.     
  467.     %JUMPOLT{
  468.     type({J OLT\n});
  469.     wait({60},STOP,    {よろしいですか(Y,N)=},{type({\n});WAIT},
  470.             {よろしいですか=},{type({\n});WAIT},
  471.             {番号またはコマンド=},,
  472.             {,J)=},);
  473.     };
  474.  
  475.     case(WHERE2=JUMP,{No},{WHERE2:=JUMP;JUMPOLT});
  476.     type({3\n});
  477.     WAIT;
  478.     type({4\n});
  479.     wait({60},STOP,{登録されません。},);
  480.     WMES4;
  481. };
  482.  
  483. /*    書き込むボード番号送信    */
  484. %WMES1{
  485.     type({W}|NUMBER|{\n});
  486.     wait    ({60},STOP,
  487.         {登録できません。},    {WAIT;SNDMSG({okasi_f.snd});
  488.                     display({\nボード番号が}|
  489.                     {間違っています\n});A:=A+1},
  490.         {登録されません。},    {WMES3});
  491. };
  492.  
  493. /*    書き込む会議室番号の送信    */
  494. %WMES2{
  495.     type(NUMBER|{\n});
  496.     wait    ({60},STOP,
  497.         {訂正},    {WAIT;SNDMSG({okasi_f.snd});
  498.             display({\n会議室番号が間違っています\n});
  499.             A:=A+1},
  500.         {,J)=},    {type({W\n});
  501.             wait({60},STOP,{登録されません。},);
  502.             WMES3},
  503.         {番号またはコマンド=},
  504.             {type({W\n});
  505.             wait({60},STOP,{登録されません。},);
  506.             WMES3});
  507. };
  508.  
  509. /*    文書の送信(フォーラム・BBS・会議室用)    */
  510. %WMES3{
  511.     wait({2});
  512.     type(TITLE|{\n});
  513.     wait({2});
  514.     %SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  515.     send(SENDFILE);
  516.     type({\n});
  517.     type({..\n});
  518.     WAIT;
  519.     type({G\n});
  520.     WAIT;
  521.     A:=A+1;
  522. };
  523.  
  524. /*    文書の送信(OLT広場用)    */
  525. %WMES4{
  526.     wait({2});
  527.     type(TITLE|{\n});
  528.     wait({2});
  529.     %SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  530.     send(SENDFILE);
  531.     type({\n});
  532.     type({..\n});
  533.     WAIT;
  534.     type({G\n});
  535.     WAIT;
  536.     A:=A+1;
  537. };
  538.  
  539. /*    SIG内OSLへのアップロード    */
  540. %UPOSL{
  541.     %JUMP        @nth(@getline(UPDATA,A,{1}),2,{/});
  542.     %OSLNUM        @nth(@getline(UPDATA,A,{1}),3,{/});
  543.     %TITLE        @nth(@getline(UPDATA,A,{1}),4,{/});
  544.     %SENDFILE    @nth(@getline(UPDATA,A,{1}),5,{/});
  545.     %sendfile    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  546.     footnote(JUMP|{の}|OSLNUM|{番OSLにアップロードしています});
  547.  
  548.     %sig{
  549.     type({7\n});
  550.     WAIT;
  551.     uposl;
  552.     type({M\n});
  553.     WAIT;
  554.     };
  555.  
  556.     case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
  557. };
  558. %uposl{
  559.     type(OSLNUM|{\n});
  560.     WAIT;
  561.     type({4\n});
  562.     WAIT;
  563.     type({2\n});
  564.     wait({60},STOP,{起動して下さい。},);
  565.     wait({2});
  566.     case    (DIR2={},
  567.         {No},    {command(DIR2|{\QV -s }|SENDFILE)},
  568.         {Yes},    {command({QV -s }|SENDFILE)});
  569.     wait({2});type({\n});
  570.     WAIT;
  571.     type({2\n});
  572.     wait({60},STOP,{起動して下さい。},);
  573.     wait({2});
  574.     case    (DIR2={},
  575.         {No},    {command(DIR2|{\QV -s }|sendfile)},
  576.         {Yes},    {command({QV -s }|sendfile)});
  577.     wait({2});type({\n});
  578.     WAIT;
  579.     type({DP\n});
  580.     wait({60},STOP,
  581.         {未完了},
  582.         {B:=@head(@laststr,{\n\n},{.});
  583.         B:=@tail(B,{ });
  584.         WAIT;
  585.         type({WC}|B|{\n});
  586.         wait({60},STOP,{入力して下さい。},);
  587.         wait({2});
  588.         type(TITLE|{\n});
  589.         wait({60},STOP,    {よろしいですか(Y,N)=},,
  590.                 {よろしいですか=},);
  591.         type({\n});
  592.         WAIT;
  593.         type({CE}|B|{\n});
  594.         WAIT;
  595.         A:=A+1;});
  596. };
  597.  
  598. /*    CUG内OSLへのアップロード    */
  599. %UPCUGOSL{
  600.     %JUMP        @nth(@getline(UPDATA,A,{1}),2,{/});
  601.     %PASS        @nth(@getline(UPDATA,A,{1}),3,{/});
  602.     %MAINNUM    @nth(@getline(UPDATA,A,{1}),4,{/});
  603.     %OSLNUM        @nth(@getline(UPDATA,A,{1}),5,{/});
  604.     %TITLE        @nth(@getline(UPDATA,A,{1}),6,{/});
  605.     %SENDFILE    @nth(@getline(UPDATA,A,{1}),7,{/});
  606.     %sendfile    @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
  607.     footnote(JUMP|{の}|OSLNUM|{番OSLにアップロードしています});
  608.  
  609.     %cug{
  610.     type(MAINNUM|{\n});
  611.     WAIT;
  612.     uposl;
  613.     type({M\n});
  614.     WAIT;
  615.     };
  616.  
  617.     case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
  618. };
  619.  
  620. /*    実行    */
  621. UPCHK;
  622.